home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 4 / MacMania 4.toast / / Tools&Utilities / nl-phone-conv-20-fmpro / NLphoneConv / NLphoneConvFastMac.fmpr2.0 (.txt) < prev    next >
FileMaker Pro Database  |  1995-04-08  |  55KB  |  311 lines
  1. HBAM2001MAY84
  2. Empty
  3. 015-2
  4. 030-2
  5. 0541-5
  6. 015-213
  7. 030-231
  8. 0541-51
  9. Changed
  10. 08-04-95
  11. C@MMENT
  12. ID@NTL@BEL
  13. TELNEW
  14. TELOLD
  15. YesfD
  16.     Helvetica
  17. TelOldB
  18. K@#2B
  19. Left (If (Int (TextToNum (0 & TelOld)) 
  20.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0  0  0  0 ) = 0  0 
  21.     Helvetica
  22. K@#3B
  23. Left (If (Int (TextToNum (0 & TelOld)) 
  24.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 B%,0 ,1))) , TextToNum (0 & TelOld)),3)
  25. K@#4B
  26. Left (TextToNum (0 & TelOld),4)
  27. L@#3B
  28. PTTconvDataK
  29. L@#4B
  30. etica
  31. L@#5B
  32. PTTconvDataK
  33. L@#6B
  34. PTTconvDataK
  35. PTTconvDataK
  36. N@#3B
  37. PTTconvDataK
  38. N@#4B
  39. PTTconvDataK
  40. N@#5B
  41. PTTconvDataK
  42. N@#6B
  43. PTTconvDataK
  44. TelNewB
  45. C@mmentB
  46. If (TelNew = "Error!  ","Area/Nr unknown!",                                                    If (TelOld = "","Empty!",                                                                               If (Left (TB
  47. elOld,1) = "+","International",                                                        If (Left (TelOld,2) = "00","International",                                                   If (Left (TelOld,2) = "06","0
  48. YesfD
  49. YesfD
  50. TelNew
  51. C@mment
  52. Id@ntL@bel
  53. ConvListB
  54. YesfD
  55. Empty
  56. 45-14555C
  57. 1745F
  58. 17451G
  59. 174514H
  60. 1745K
  61. 0174-5P
  62. 0174-51 45 55S
  63. OK, Same Dialing
  64. 141530
  65. User Dictionary
  66. TelOld
  67. Tel.Old
  68. l    {I0_*
  69. ownerB
  70. sharerC
  71. YesfD
  72.     Helvetica
  73. Chicago
  74. Geneva
  75. Monaco
  76. aling
  77. If (N@#2 = "0",If (N@#3 = "0",If (N@#4 = "0",If (N@#5 = "0",If (N@#6 = "0","Error!",                                                                     N@#6 & Right (If (Int (TextToNum (0 & TelOld)) 
  78.  TextToNuF
  79. m (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld)),              
  80. 3h (TextToNum(0 & TelOld)) - Length (L2))),2) ))))))
  81. PTTconvDataK
  82. Id@ntL@belB
  83. If (Int (TextToNum (0 & TelOld)) 
  84.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1)B
  85. )) , TextToNum (0 & TelOld))
  86. Compleet
  87. ConvList
  88. Read Me
  89.                                      Length (If (Int (TextToNum (0 & TelOld)) 
  90.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) H
  91. - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld))) - Length (L@#6))),                                                                       N@#5 & Right (If (Int (TextToNum (0 & TelOld))
  92.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld)),   J
  93.                                                 Length (If (Int (TextToNum (0 & TelOld)) 
  94.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 &
  95. Error!  
  96. Area/Nr unknown!&
  97. Empty!&
  98. International&
  99. International&
  100. '    06-number&
  101. Old International&
  102. Nr is too long&
  103. Nr is too short
  104. OK, Same Dialing'
  105. OK, Changed
  106. Error!&
  107. TextToNum (0 & TelOld)),                                              Length (If (Int (TextToNum (0 & TelOld)) 
  108.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - LengtT
  109. h (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld))) - Length (L@#2))),7)                                                                                  
  110. Non-existent Nr!&
  111. Empty!&
  112. International&
  113. International&
  114. '    06-number&
  115. Old International&
  116. Nr is too long&
  117. Nr is too short
  118. OK, Same Dialing'
  119. OK, Changed
  120. Nr is too long&
  121. Nr is too short
  122. OK, Same Dialing'
  123. OK, Changed
  124. TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld))) - Length (L@#3))),                                                                         N@#2 & Right (If (IR
  125. nt (TextToNum (0 & TelOld)) 
  126.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , 
  127. Pro 1.0F!
  128. Pro 1.0I
  129. Main Dictionary
  130. User Dictionary
  131. 5, J. J. Lodder
  132. Id@ntL@bel
  133. Read MeB
  134. CopyHelp
  135. Single
  136. CompleetB
  137. Inbouwen van conversie in een eigen FMPRO database.
  138. Deze notes zijn nu toegangkelijk met het password.
  139. Er moeten17 (fast) of 18 (slow) nieuwe velden gedefinieerd worden. Open (een copie van) je database file (B
  140. zorg voor afdoende backup!) Open een NLphoneConv.fmpr met het password. Kies definieer velden uit het verander Menu (Cmd-Shift-D).
  141. Selecteer een veld en click opties, selecteer de tekst van de formule en copiee
  142. SingleB
  143. TelOld
  144. CopyHelpB
  145. TelOld
  146. xtToNum (0 & TelOld)) 
  147.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToP
  148. Num (0 & TelOld)),                                            Length (If (Int (TextToNum (0 & TelOld)) 
  149.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (
  150.  TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld))) - Length (L@#5))),                                                                          N@#4 & Right (If (Int (TextToNumL
  151.  (0 & TelOld)) 
  152.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 
  153. ?elOld),Length (TextToNum(0 & TelOld)) - Length (L2))),2) ))))))
  154. & TelOld)),                                              Length (If (Int (TextToNum (0 & TelOld)) 
  155.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextTN
  156. oNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld))) - Length (L@#4))),                                                                        N@#3 & Right (If (Int (Te
  157.       & " "                                                                                                                   & Middle (If (N@#2 = "0",If (N@#3 = "0",If (N@#4 = "0",If (N@#5 = "0",If (N@#6 = "0"V
  158. ,"",                                                                                   N@#6 & Right (If (Int (TextToNum (0 & TelOld)) 
  159.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNu
  160. ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld)) = "611",  "112",                                              D
  161.    If (Left (TelOld,2) = "06",TelOld,                                                                     If (Left (TelOld,2) = "09",TelOld,                                                                Left (
  162. 6-number",                                                      If (Left (TelOld,2) = "09","Old International",                                            If (Length (TelNew)  > 13 ,"Nr is too long",           D
  163.                                          If (Length (TelNew) < 13 ,"Nr is too short",                                                   If (If (Int (TextToNum (0 & TelOld)) 
  164.  TextToNum (0 & TelOld) , TextToNum 
  165. I[pv een rekenveld gemaakt worden, met een nieuwe naam, zodat er direct ingevoerd kan worden.
  166. K@#2.........K@#6 zijn 5 rekenvelden die een deel van het gestripte telnr bevatten, die vergeleken wordenD
  167.  met de  PTT data.
  168. Vervolgens zijn er 10 opzoekvelden. Zet opzoek geeft de definities. Vergeet niet 0 in te stellen 0 als niets passends gevonden is, correcte conversie hangt hiervan af!
  169. L@#2.........L@#6 zoeke
  170. Copyright 1995, J. J. Lodder
  171. Copyright 1995, J. J. Lodder
  172. TelNew without the need for a relookup.
  173. After Oct 10 you merely have to omit the superfluous F~calc fields, change TelNew from a calculation field to a text field (and rename it appropriately) and live happily ever after.
  174. t geconverteerd moeten worden. Dit is te vermijden door TelOld als een rekenveld te definieren en het na elkaar gelijk te maken aan verschillende velden.
  175. Een conversie van bestaande records is te forceren met H
  176. zoek opnieuw op met de cursor in TelOld. Nieuw ingevoerde nrs in TelOld worden wel direct geconverteerd.
  177. Na 10 oct kunnen de dan overbodige reken en zoek velden weggegooid worden, en moet TelNew een teksveld i
  178. K@#5B
  179. Left (If (Int (TextToNum (0 & TelOld)) 
  180.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 B%,0 ,1))) , TextToNum (0 & TelOld)),5)
  181. convDataK
  182. L@#4B
  183. DataK
  184. L@#4B
  185. N@#2B
  186. PTTconvDataK
  187. N@#3B
  188. PTTconvDataK
  189. N@#4B
  190. PTTconvDataK
  191. N@#5B
  192. PTTconvDataK
  193. N@#6B
  194. PTTconvDataK
  195. TelNewB
  196. TelNew
  197. C@mment
  198. Copyright 1995, J. J. Lodder
  199. Id@ntL@bel
  200. TelOld
  201. A    Layout #6B
  202. TelOld
  203. Id@ntL@bel
  204. K@#4S
  205. Empty!
  206. TelOld
  207. TelOld
  208. (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld)) = TextToNum (0 & TelNew),                F
  209.               "OK, Same Dialing",                                                                                  "OK, Changed")))))))))
  210. Dialing@
  211. Same@
  212. Same@
  213. Same@
  214. If (TelOld = "","",                                                                                      If (Left (TelOld,1) = "+",TelOld,                                                                        B
  215.       If (Left (TelOld,2) = "00",TelOld,                                                                           If (If (Int (TextToNum (0 & TelOld)) 
  216.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ 
  217. Compleet
  218. ConvList
  219. Read Me (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))))
  220. Compleet
  221. ConvList
  222. Read Me
  223. Read MeMe
  224. TelOld
  225. TelNew
  226. C@mment
  227. Copyright 1995, J. J. Lodder
  228. Id@ntL@bel
  229. Empty!
  230. Empty!
  231. Empty!
  232. Empty!
  233. r (Cmd-C) de tekst. Ga nu naar je eigen file and creeer hetzelfde veld daar. Plak (Cmd-V) de formule in.
  234. K@#2.........K@#6 zijn 5 rekenvelden die een deel van het gestripte telnr bevatten, die vergeleken wordenD
  235.  met de  PTT data.
  236. SlowMac heeft een extra rekenveld dat een tussenresultaat bevat.
  237. Vervolgens zijn er 10 opzoekvelden. Zet opzoek geeft de definities. Vergeet niet 0 in te stellen 0 als niets passends gevonden
  238. K@#4B
  239. Left (If (Int (TextToNum (0 & TelOld)) 
  240.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 B%,0 ,1))) , TextToNum (0 & TelOld)),4)
  241. B%,0 ,1))) , TextToNum (0 & TelOld)),2)
  242. K@#6B
  243. Left (If (Int (TextToNum (0 & TelOld)) 
  244.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 B%,0 ,1))) , TextToNum (0 & TelOld)),6)
  245. L@#2B
  246. PTTconvDataK
  247. L@#3B
  248. PTTconvDataK
  249. L@#4B
  250. PTTconvDataK
  251. L@#3B
  252. PTTconvDataK
  253. L@#4B
  254.  (0 & TelOld)) 
  255.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 \
  256. & TelOld))) - Length (L@#5))),                                                                     N@#4 & Right (If (Int (TextToNum (0 & TelOld)) 
  257.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Leng
  258. m (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld)),                                            Length (If (Int (TextToNum (0 & TelOX
  259. ld)) 
  260.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld))
  261. ) - Length (L@#6))),                                                                         N@#5 & Right (If (Int (TextToNum (0 & TelOld)) 
  262.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TeZ
  263. xtToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld)),                                                Length (If (Int (TextToNum
  264. th (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld)),                                               Length (If (Int (Text^
  265. ToNum (0 & TelOld)) 
  266.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNu
  267. m (0 & TelOld))) - Length (L@#4))),                                                                     N@#3 & Right (If (Int (TextToNum (0 & TelOld)) 
  268.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ (`
  269.  Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld)),                                               Length (If (Int 
  270. (TextToNum (0 & TelOld)) 
  271.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , Texb
  272. tToNum (0 & TelOld))) - Length (L@#3))),                                                                    N@#2 & Right (If (Int (TextToNum (0 & TelOld)) 
  273.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10
  274.  ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld)),                                               Length (If (d
  275. Int (TextToNum (0 & TelOld)) 
  276.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) ,
  277.  TextToNum (0 & TelOld))) - Length (L@#2))),8 ,2)                                                                                        & " "                                                                    f
  278.                                                 & Middle (If (N@#2 = "0",If (N@#3 = "0",If (N@#4 = "0",If (N@#5 = "0",If (N@#6 = "0","",                                                                          
  279.     N@#6 & Right (If (Int (TextToNum (0 & TelOld)) 
  280.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & Th
  281. elOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld)),                                          Length (If (Int (TextToNum (0 & TelOld)) 
  282.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0
  283.  & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld))) - Length (L@#6))),                                                                 j
  284.     N@#5 & Right (If (Int (TextToNum (0 & TelOld)) 
  285.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & T
  286. elOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld)),                                             Length (If (Int (TextToNum (0 & TelOld)) 
  287.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNuml
  288.  (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld))) - Length (L@#5))),                                                              
  289.        N@#4 & Right (If (Int (TextToNum (0 & TelOld)) 
  290.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 n
  291. & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld)),                                           Length (If (Int (TextToNum (0 & TelOld)) 
  292.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNu
  293. m (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld))) - Length (L@#4))),                                                             p
  294.               N@#3 & Right (If (Int (TextToNum (0 & TelOld)) 
  295.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextTo
  296. Num (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld)),                                            Length (If (Int (TextToNum (0 & TelOld)) 
  297.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (r
  298. TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld))) - Length (L@#3))),                                                     
  299.                  N@#2 & Right (If (Int (TextToNum (0 & TelOld)) 
  300.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (Text
  301. tToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld)),                                              Length (If (Int (TextToNum (0 & TelOld)) 
  302.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Len
  303. gth (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1))) , TextToNum (0 & TelOld))) - Length (L@#2))), 10 ,3)                                         vY                                                                                   ))))))
  304.  is, correcte conversie hangt hiervan af!
  305. L@#2.........L@#6 zoeken het oude netnr op, zodat het oude abonr berekend kan worden, N@#2.........N@#6 het nieuwe voorzetsel op. 
  306. Tenslotte berekent TelNew het nieuwe F
  307. telnr en formatteert het.
  308. C@mments bevat foutmeldingen. De veldnamen zijn van @'jes voorzien om de kans op naamconflicten te vermijden. 
  309. De conversiemachinerie is in tweevoud nodig als er twee telnrvelden direc
  310. >en, met een nieuwe naam, zodat er direct ingevoerd kan worden.
  311.